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-- MiniNub.Mesa 

— Edited by Sandman on October 6, 1977 4:02 PM 

DIRECTORY 

AUoFileOefs: FROM "altof iledef s" , 
ControlDefs: FROM "controldef s", 
CoreSwapDefs: FROM "coreswapdefs" , 
FrameDefs: FROM "framedefs", 
ImageDefs: FROM "imagedef s", 
lODefs: FROM "iodefs", 
LoaderDefs: FROM "loaderdef s" , 
SegmentDefs: FROM "segmentdef s" , 
StreamOefs: FROM "streamdefs" , 
StringOefs: FROM "stringdef s" ; 

MiniNub: PROGRAM 

IMPORTS CoreSwapDefs, LoaderDefs, SegmentDefs, StreamOefs, StringOefs = 

BEGIN 

Program: TYPE = PROGRAM; 

CallDebugger: PROCEDURE ^ 

BEGIN -- user's entry point to debugger 

state: ControlDefs .StateVector ; 

state. stkptr <- 0; 

state. X ♦• defaultf rame; 

CoreSwapDefs .CoreSwap[exp1 ici tcall , ©state] ; 

RETURN 

END; 

BadFile: SIGNAL [name: STRING] = CODE; 

LoadNew: PROCEDURE [name: STRING] RETURNS [Program] = 

BEGIN 

g: ControlDef s. Global FrameH and! e; 

g ^ FrameDefs. New[name ! BadFile, LoaderDefs . VersionMismatch , UNWIND => NULL; AMY => ERROR BadFi1e[na 
**me]]; 

IF g # ControlDefs. NULLFrame THEN defaultframe ^ g; 

RETURN[LOOPHOLE[g]] 

END; 

defaultframe: ControlDefs .Global FrameHandle ^ REGISTER[ControlDef s.Greg]; 

comcmRequest : short ImageDefs . Fi leRequest ♦• [ 
body: short[fin:, name: "Com. Cm."], 
file: NIL. 

access: SegmentDefs .Read , 
link: ]; 

Done: SIGNAL = CODE; 

debug, start: BOOLEAN; 

ProcessSwitches: PROCEDURE [s: STRING] = 
BEGIN 

1: CARDINAL; 

inverse: BOOLEAN ♦- FALSE; 
FOR i TN [0. .3. length) DO 
SELECT s[i] FROM 

'd, 'D => inverse ♦- -(debug *- TRUE); 

•s. 'S => IF inverse THEN inverse ♦- start *- FALSE ELSE start *- TRUE; 
'- => inverse <- TRUE; 
ENDCASE => inverse ♦- FALSE; 
FNDLOOP; 
END; 

InitSwi tches: PROCrOURE = BEGIN debug ^ FALSE; start ^ TRUE; END; 

GetToken: PROCrOURE [com: StreamOefs . StreamHandl e , token, ext, switches: STRING] = 
BEGIN 
s: STRING; 
c: CHARACTER: 

token. length ♦- ext. length ♦- sw i tches . 1 ength ♦- 0; 
s ^ token; 
WHILE ~com.endof[com] DO 
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SELECT (c ♦■ com.get[com]) FROM 
lODefs.SP. lODefs.CR => 

IF token, length # OR ext. length // OR switches, length # THEN RETURN; 
' . «> s <- ext; 
'/ => s ♦• switches; 

ENDCASE => StringDefs.AppenclChar[s, c]; 
ENDLOOP; 
RETURN 
END; 

LoadSystems: PROCEDURE » 
BEGIN 

user: PROGRAM; 
fa: AltoFileDefs.FA; 

IF comcmRequest.file = NIL THEN RETURN; 
SegmentDefs. LockFi le[comcmRequest. f ile] ; 
InitSwitches[]; 
SkipImage[0fa]; 
IF debug THEN CallDebuggerC]; 
DO 

InitiSwitches[]; 

user ^ LoadUser[@fa I Done => EXIT]; 

IF debug THEN CallDebuggerC]; 

IF start AND user # LOOPHOLE[ControlDef s .NULLFrame] THEN START user; 

ENDLOOP; 
SegmentDefs .UnlockFile[comcmRequest .f ile]; 
Segmen tDe f s. Re leaseFile[ comcmRequest.file]; 
END; 

LoadUser: PROCEDURE [fa: POINTER TO AltoFileDefs.FA] RETURNS [user: Program] = 
BEGIN OPEN lODefs, StreamDefs; 
com: StreamHandle; 
name: STRING *- [40]; 
ext: STRING ♦■ [10]; 
switches: STRING ♦- [6]; 

com ^ CreateByteStream[comcmRequest .f i le, Read]; 
BEGIN 

StreamDefs. JumpToFA[com, fa ! ANY => GO TO finished]; 
GetToken[com, name, ext, switches]; 
IF name. length = THEN GO TO finished; 
IF ext. length = THEN ext ♦- "bed"; 
StringDef s .AppendChar[name, * .]; 
StringDef s.AppendString[name, ext]; 
StreamDefs. GetFA[com. fa]; 
com. destroy[com]; 
user ♦• LoadNew[name] : 
ProcessSw itches [switches] ; 
EXITS 

finished => BEGIN com. destroy[com] ; SIGNAL Done; END; 
END; 
END; 

Skiplmage: PROCEDURE [fa: POINTER TO AltoFileDefs.FA] = 
BEGIN OPEN lODefs, StreamDefs; 
com: StreamHandle; 
name: STRING «- [40]; 
ext: STRING <" [10]; 
switches: STRING ♦- [5]; 

com ♦- CreateBy teStream[comcmRequest . f i le , Read]; 
StreamDefs. GetFA[com, fa]; 
GetToken[com, name, ext, switches]; 

IF StringOefs . Equ ivalentString[ext, "image"] THEN StreamDefs .GetFA[com, fa]; 
com. des troy[com] ; 
ProcessSw itches[swi tches]; 
END; 

-- Main body 

ImageOef s .AddF ileReques t[@comcmReques t] ; 

[] ^ StreamDefs .GetDefauUKey[]; -- Start keyboard process 

STOP; 

[] *- ! oaderDefs.l oadBcd[NIi ! ANY => CONTINUf]; -- make loader fill in SD 
1 oadSystems[! CoreSwapDef s . CAbor t => CONTINUE]; 
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END... 



